home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / dc174v11.zip / R-PCDROP.MRG < prev    next >
Text File  |  1992-07-18  |  6KB  |  148 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. *          DROP174 (c) 1992 by Richie Molinelli
  5. * ------------[ Created 07-18-1992 10:21:51 ]------------
  6. * REPLACING old line(s) by new
  7. 4857 GOSUB 12976
  8.      IF (NOT ZSysop) AND (ZUserSecLevel < ZSecKillAny) THEN _
  9.         RETURN
  10.      UserWork = (ZHighestUserRecord * .95) + 1
  11.      IF ZMsgsCanGrow THEN _
  12.         ZWasY$ = " open" _
  13.      ELSE ZWasY$ = STR$(HighestMsgRecord + 1 - ZMaxNodes - ZNextMsgRec)
  14.      ZOutTxt$ = "USERS: used" + _
  15.           STR$(CurUserCount - 1) + _
  16.           " avl" + _
  17.           STR$(UserWork - CurUserCount) + _
  18.           "  MSGS: used" + _
  19.           STR$(ActiveMessages) + _
  20.           " avl" + _
  21.           STR$(MaxMsgs - ActiveMessages) + _
  22.           "  MSG REC: used" + _
  23.           STR$(ZNextMsgRec - 1) + _
  24.           " avl" + ZWasY$
  25.      GOSUB 12976
  26. * ------[ first line different ]------
  27.      ZOutTxt$ = "Dropped Carriers: " + STR$(ZDropTimes) + _          ' DROP174
  28.                 " Reset at: " + STR$(ZDropCarSecChng)                ' DROP174
  29.      CALL QuickTPut1 (ZOutTxt$)                                      ' DROP174
  30.      ZWasZ$ = ZUpldDriveFile$
  31.      CALL FindFree
  32.      CALL QuickTPut1 ("Upload disk has" + ZFreeSpace$)
  33.      RETURN
  34. * REPLACING old line(s) by new
  35. 5350 IF ZConfName$ <> "MAIN" THEN _
  36.         CALL QuickTPut1 ("Rejoining " + OrigMsgName$)
  37.      CALL DeLink (ZConfName$)
  38.      ConfFileName$ = OrigMsgName$
  39.      ZNewsFileName$ = OrigNewsFileName$
  40.      TurboLogon = ZTrue
  41.      ZMarkedMsgs$ = ""
  42.      ZWasQ = 0
  43.      ZNewUser = ZFalse
  44.      ZInConfMenu = ZTrue
  45.      IF ZActiveUserName$ = "SYSOP" THEN _
  46.         ZActiveUserName$ = ZSecretName$ : _
  47.         CALL Trim (ZActiveUserName$)
  48.      ZConfigFileName$ = ZOrigCnfg$
  49.      CALL ReadDef (ZConfigFileName$)
  50.      IF ZOrigMsgFile$ <> ZActiveMessageFile$ THEN _
  51.         ZActiveMessageFile$ = ZOrigMsgFile$ : _
  52.         GOSUB 5343
  53.      IF ZOrigUserFile$ <> ZActiveUserFile$ THEN _
  54.         GOSUB 5380 : _
  55.         ZActiveUserFile$ = ZOrigUserFile$ : _
  56.         ZActiveUserName$ = ZOrigUserName$ : _
  57.         GOSUB 12598 : _
  58.         GOSUB 12990 : _
  59.         IF Found THEN _
  60.            GOSUB 9500 : _
  61.            ZMainUserFileIndex = ZUserFileIndex : _
  62.            CALL SetPrompt : _
  63.            CALL XferType (2,ZTrue) _
  64.         ELSE ZUserFileIndex = 0 : _
  65.              ZMainUserFileIndex = 0
  66.      CALL UpdtCalr ("Exited " + ZConfName$,3)
  67.      ZConfName$ = "MAIN"
  68.      ConfNameSave$ = ZConfName$
  69.      GOSUB 2350
  70.      ZUplds = ZGlobalUplds
  71.      ZDnlds = ZGlobalDnlds
  72.      ZDLToday! = ZGlobalDLToday!
  73.      ZBytesToday! = ZGlobalBytesToday!
  74.      ZDLBytes! = ZGlobalDLBytes!
  75.      ZULBytes! = ZGlobalULBytes!
  76. * ------[ first line different ]------
  77.      ZDropTimes = ZGlobalDropTimes                                   ' DROP174
  78.      ZBankTime = ZGlobalBankTime
  79. * REPLACING old line(s) by new
  80. 9450 IF LOF(5) < 1 THEN _
  81.         ZWasDF$ = ZActiveUserFile$ : _
  82.         RETURN 13600
  83.      FIELD 5,31 AS ZUserName$, _
  84.              15 AS ZPswd$, _
  85.               2 AS ZSecLevel$, _
  86.              14 AS ZUserOption$,  _
  87.              24 AS ZCityState$, _
  88. * ------[ first line different ]------
  89.               1 AS MachineType$, _                                   ' DROP174
  90.               1 AS ZDropTimes$, _                                    ' DROP174
  91.               1 AS ZBankTime$,_
  92.               4 AS ZTodayDl$, _
  93.               4 AS ZTodayBytes$, _
  94.               4 AS ZDlBytes$, _
  95.               4 AS ZULBytes$, _
  96.              14 AS ZLastDateTimeOn$, _
  97.               3 AS ZListNewDate$, _
  98.               2 AS ZUserDnlds$, _
  99.               2 AS ZUserUplds$, _
  100.               2 AS ZElapsedTime$
  101.      FIELD 5,128 AS ZUserRecord$
  102.      RETURN
  103. '
  104. ' * GET USER DEFAULTS
  105. '
  106. * REPLACING old line(s) by new
  107. 11110   ZOutTxt$ = "D)el  F)ind  M)enu  N)ewPW  P)rnt  R)eset Grfx  C)" _
  108.              + ZUserLocation$ + "  Q)uit"                            '  KG021602
  109.         CALL TopPrompt
  110. * ------[ first line different ]------
  111.         ZOutTxt$ = "S)ecLvl  U)ser#  X)fer Cnts  T)ime Used  B)ank Acct " + _  ' DROP174
  112.                    "!)Carriers"                                                ' DROP174
  113.         IF ZRestrictByDate THEN _
  114.            ZOutTxt$ = ZOutTxt$ + _
  115.                 " $)RegDate"
  116.         GOSUB 12930
  117.         IF NOT ScanUsers AND ZWasQ = 0 THEN _
  118.            GOTO 11310
  119. * REPLACING old line(s) by new
  120. 11115   ZWasZ$ = LEFT$(ZUserIn$(ZAnsIndex),1)
  121.         CALL AllCaps (ZWasZ$)
  122. * ------[ first line different ]------
  123.         WasX = INSTR("DNPQFSMR$UXTBC!",ZWasZ$)                       ' DROP174
  124.         IF ZWasZ$ = "" AND ScanUsers THEN _
  125.            GOTO 12965
  126.         ON WasX GOTO 11130,11160,11220,11320,11340,11390,11330, _
  127.                      11400,11450,11127,11490,11420,11423,11190, _    ' DROP174
  128.                      11424                                           ' DROP174
  129.         GOTO 11110
  130. * REPLACING old line(s) by new
  131. 11423        ' * B - COMMAND FROM 5 - BANKED TIME
  132.       Temp = ASC(ZBankTime$)
  133.       CALL ChangeInt (ZTrue,"Banked Time",Temp,0,255)
  134.       IF ZWasQ <> 0 THEN _
  135.          LSET ZBankTime$ = CHR$(ZTestedIntValue)
  136.       GOTO 11290
  137. * ------[ first line different ]------
  138. * INSERTING new line(s)
  139. 11424        ' * ! - COMMAND FROM 5 - DROPPED CARRIERS               ' DROP174
  140.       Temp = ASC(ZDropTimes$)                                        ' DROP174
  141.       CALL ChangeInt (ZTrue,"Dropped Carriers",Temp,0,255)           ' DROP174
  142.       IF ZWasQ <> 0 THEN _                                           ' DROP174
  143.          LSET ZDropTimes$ = CHR$(ZTestedIntValue)                    ' DROP174
  144.       GOTO 11290                                                     ' DROP174
  145. '
  146. ' *  $ - COMMAND FROM 5 - USER MAINTENANCE (CHANGE REGISTRATION DATE)
  147. '
  148.